home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 April / EnigmA AMIGA RUN 06 (1996)(G.R. Edizioni)(IT)[!][issue 1996-04][Skylink CD V].iso / progs / editor / write-ed / rexx / showconfig.wrx < prev    next >
Text File  |  1995-05-01  |  562b  |  41 lines
  1. /*
  2.  *
  3.  * Script für WRITE 3.1536 © 1989 - 1995 by Tim Teulings
  4.  * Dieses REXX-Script zeigt alle geladen Konfigurationen an
  5.  *
  6.  * $VER: 1.1 (Tim Teulings)
  7.  */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. IF ~show('P',"WRITE")
  12. THEN DO
  13.  say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
  14.  exit 10
  15. END
  16.  
  17. ADDRESS "WRITE"
  18.  
  19. 'VERSIONCHECK 40000 "ShowConfig.wrx"'
  20. IF RC~=0 THEN DO
  21.   exit 10
  22. END
  23.  
  24. CLEARLIST 0
  25.  
  26. ID = 0
  27. NEXTED ID
  28.  
  29. do while RC=0
  30.  'GETVAR "_CurrentID"'
  31.  ID = RESULT
  32.  
  33.  'GETVAR "_CurrentConfig"'
  34.  Config = Result
  35.  'ADDLIST &Config 0 {@NODUP}'
  36.  
  37.  NEXTED ID
  38. end
  39.  
  40. SHOWLIST 0 0
  41.